0 DATAA9,6,8D,E1,2,20,33,EC,AD,D,3,C9,2,D0,F6,20,4,F2,4C,8,4:PAPER0
1 FORS=1TO21:READA$:POKE1023+S,VAL("#"+A$):NEXT:CALL#400